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. . _ , . Running. id! 

// Running. idl : IDL source for Running.dll 

// This file wili be processed by the MIDL tool to 

// produce the type library (Running. tlb) and marshalling code. 

import "oaidl.idl"; 
import "ocidl.idl"; 

i 

object, 

uuid(E753l917-289D-llD2-869F-080009DC2S52) , 
dual, 

helpstring ("IRunning Interface") , 
^ pointer_def ault (unique) 

interface IRunning : IDispatch 



ItemName, XOnkno™*^^ HRESULT Regis terlnstanceName (BSTR bstr 

ICookie); < id < 2 >' helpstring ("method UnregisterlnstanceName") ] HRESOLT Onregis terlnstanceName (long 



( 

uuid(E753l908-289D-llD2-869F-080009DC2S52) , 
version (1. 0) , 

^ helpstring ("Running 1.0 Type Library**) 

library RUNNINGLib 
{ 

importlib ( "stdole32 . tlb" ) ; 
importlib ( "stdole2 . tlb" ) ; 

[ 

uuid(E7531918-289D-HD2-869F-080009DC2552) , 
^ helpstring ("Running Class") 

coclass Running 
( 

[default) interface IRunning; 
interface IParseDisplayName; 
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HKCR 
( 



Running. rgs 
Running. l - s 'Running Class 1 

CLSID = s ' {E7531918-289D-11D2-869F-080009DC2552) • 
Running - s 'Running Class' 

CLSID - s .• {E7531918-289D-11D2-869F-080009DC2552} ' 
NoRemove CLSID 

ForceRemove (E7531918-289D-11D2-869F-080009DC2552 ) « s 'Running Glass' 

val AppID » s ' (E7531918-289D-11D2-869F-080009DC2552) ' 
ProgID » s 'Running. 1' 

VersionlndependentProgID =* s 'Running' 
ForceRemove ' Programmable 1 
InprocServer32 - s ' %MODULE% ' 
{ 

^ val ThreadingModel » s 'Apartment' 



NoRemove AppID 



NoRemove { E7531 918-289D-11D2-869F-080009DC2552 } = s 'Running Class' 
val DllSurrogate =» s • ' 

) 
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// CRunning.h : Declaration of the CRunning 



CRunning.h 



iifndef RUNNING_H_ 

•define, RUNNING_H_ 

(♦include "resource . h" 



// main symbols 



/ / CRunning 

class ATL_NO_VTABLE CRunning : 

public CComObjectRootEx<CComSingleThreadModel>, 
public CComCoClass<CRunning, &CLSID_Running>, 

public IDispatchlmpKlRunning, &IID IRunning, &LIBID RUNNINGLib>, 
public IParseDisplayName ~ ~ 



{ 

public: 



CRunning ( ) 
{ 

^ ATLTRACE (_T ( "CRunning { ) constructor called\n") ) ; 



□ 



.SK5. 

a 

: 3S9> 



o 

ill 



r 3 * 



virtual -CRunning () 

^ ATLTRACE (_T < "CRunning ( ) destructor called\n") ) ; 

DECLARE^ REG I STRY — RESOURCE I D { I DR__RUNN I NG ) 

BEG I N_COM_MAP (CRunning) 

COM_INTERFACE_ENTRY (I Running) 

COM_INTERFACE_ENTRY( IDispatch) 

COM_INTERFACE ENTRY (IParseDisplayName) 
END_COM_MAP ( ) 

"/'/'/////////////////////////////////////////////////////////// 
ft IParseDisplayName method 

STDMETHODIMP ParseDisplayName { IBindCtx *pbc 

, LPOLESTR pszDisplayName 
,ULONG *pchEaten 
, IMoniker **ppmkOut 
> ; 

protected: 

const wchar_t* ProglDO ( return L rt Running"; ) 
const wchar_t* VersionlndependentProgID ( ) { return L"Running. 1"; ) 

// IRunning 
public: 

STDMETHOD(UnregisterlnstanceName) (long lCookie) ; 

STDMETHOD ( Regis ter Ins tanceName ) ( BSTR bstrltemName, IUnknown * pUnk, long * lCookie) 



#endif // RUNNING_H_ 



Fjg.2C 



/ i x . CRunning.cpp 

// CRunning.cpp : Implementation of CRunnino 

• include "stdafx.h" "* ^ . 
•include "Running. h" 

• include "CRunning. h** 

•define BAD_POINTER_RETURN (p) if( »p ) return £ POINTER 

Z^finf !??/op N I^7^ if ( ! P > " turn E POINTER; else *p - 0 

•define SIZE_OF_STRING <p) !p ? 0 : ((wcslen(p) * si 2 eof7wchar_t) > + sizeof (wchar.t > ) 

•define OLE_MAXNAMESIZE 25 6 

STDMETHODIMP CRunning: : Regis ter Ins tanceName. (BSTR bstrltemName, lUnknown • pUnk, long * ICookie) 

AFX_MANAGE_STATE (Af xGetStaticModuleState ( ) ) 

// TODO: Add your implementation code here 

ATLTRACE(_T< -CRunning: : Registerlns tanceName called\n") ) ; 

HRESOLT hr - E_FAIL; 

LPRUNNINGOBJECTTABLE prot - NULL; 

hr - GetRunningObjectTable(0,&prot) ; 

if (SUCCEEDED (hr) ) 

( 

LPMONIKER ppmx •« NULL; 

hr - CreateltemMoniker (NULL, bstrltemName, &ppmk) ; 

if (SUCCEEDED (hr) ) 
( 

hr « prot->Register (0 

, pUnk 
, ppmk 

, (unsigned long *) ICookie 
); 

i f (SUCCEEDED (hr) ) 
( 

n"), (unsigned long*) •ICookie) ; ( "CRunning : : Regis terlnstanceName register succeeded cookie is 

) 

else 

( . 

TRACE (__T ( "CRunning: : Regis terlnstanceName register failed %x \n"),hr); 
ppmk->Release() ; 

) 

else 
< 

^ TRACE (_T ( "CRunning : : Regis terlnstanceName CreateltemMoniker failed %x \n"),hr); 

prot->Release () ; 



else 
( 



TRACE (_t ( "CRunning : : Regis terlnstanceName get* ROT failed %x \n"),hr); 



) 

return hr; 

STDMETHODIMP CRunning :: Unregisterlns tanceName ( long ICookie) 

AFX_MANAGE_STATE (Af xGetStaticModuleState ( ) ) 

// TODO: Add your implementation code here 
HRESULT hr - E FAIL; 
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ifUCookie) CRunning.cpp 
( 

LPRUNNINGOBJECTTABLE prot - NOLL; 
hr - GetRunningObjectTable(0, iprot) ; 

if (SUCCEEDED (hr) ) 
( 

' ?5 ,T Pf^" >Revolc e{ (unsigned long) lCookie) ; 
if (SUCCEEDED (hr) ) 
( 

igned long) lCookie) ; TRACE (_T ( "CRunning: : Unregis terlnstanceNarae worked for cookie %x \n-),(i 

) 

else 

( « 

} ATLTRA CE^T(-CRunning::UnregisterInstanceName Revoke f ailed\n") ) ; 

prot->Release() ; 



) 

else 
{ 



) 



) 

return hr; 



ATLTRACE (_T ( "CRunning : : Unregister InstanceName Get ROT failed\n")); 



• m STDM iBindCt^ CRU pSc n9: : ParseDis P lav Name ( 

i!3 • LPOLESTR pwszDisplayName, 

m ULONG* pchEaten, 
IMoniker** ppmkOut) 

y 5 ( 

«f AFX_MANAGE_STATE (Af xGetS taticModuleState ( ) ) 

f- ATLTRACE <- T (-CRunning::ParseDis P i ayN a m e() with »s\„-> , pwszDisplayName, , 

^ n ^ BA D_POINTER_RETURN OR ZERO (ppmkOut) ; 

? BAD POINTER^RETURN OR ZERO (pen Eaten) ; 

yU BAD^POINTER RETURNlpb?); aten > ' 

U± BAD POINTER^RETURN (pwszDisplayName) ; 

BAD_POINTER_RETURN (pchEaten) ; 



ATLTRACE (^T ( "CRunning : : ParseDisplayName ( ) pointers OK!\n")); 
. H RESULT hr - E_FAIL; 
// set to max for now 

//need to change to fit MkParseEx c 

if (*pwszDisplayName ~ L'e*) 

else * PchEaten - wcslen (L"0Running") ; 

* pchEaten - wcslen (L w Running", ; 

// Mkp!rL aS ti have been able to fin <* oud 
// MkParse will pass the 8, WRONG! • 

// k oh no!!! MkParseEx doesn't pass the @ • t 

// we've got to fix this, so. let's look'for 

wchar_t * pwszlnstance - weschr (pwszDisplayName, L * : ' ) ; 
// do we have an instance ? 

if (pwszlnstance) 
( 

ATLTRACE (_T ( "CRunning : : ParseDisplayName < ) instance name »sVn- ,. pwszlnstance, , 

r^c^n szl temName (OLE_MAXNAMESIZEJ ; 

LPWS?R IpszDest . szltemName; 

,„" STR IpszSrc - pwszlnstance; 

int cEaten - 0; 
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CRunning. cpp 
// eat delimiter characters until next token 

while ClpszSrc !- L*\0* && ClpszSrc L'W II *lpszSrc — LV 
^ *lpszSrc L* : * || -IpszSrc « L' ! ' I I MpszSrc — L*('>) 

♦♦IpszSrc; 
♦♦cEaten; 

) 



cn 



ru 



t\n")), 



got it\n") fc ); 
tj ; 



// parse next token in szltemName 

while ClpszSrc !- L'\0' && *lpszSrc !- L'W && *lpszSrc »- LV && 

•IpszSrc !- L* : ' && *lpszSrc !- L' ! * && *lpszSrc L'f" && 
cEaten < OLE maxnamesize-1 ) 



{ 



*lpszDest++ 
♦♦cEaten; 



•lpszSrc++; 



♦pchEaten +- cEaten; 
♦IpszDest - 0; 

// find the running object 
LPRUNNINGOBJECTTABLE prot 
LPENUMMONIKER 
LPMONIKER 



- NULL; 
penum 



NULL; 
ppmk 



- HULL; 

hr - CreateltemMoniker (NULL, szltemName, ippmk); 

ATLTRACE (_T ( "CRunning : : ParseDisplayName { j Createl temMoniker %x\n" ) , hr ) ; 

if (SUCCEEDED (hr) > 
( 

// look in the running object table to find the gizmo 

// since we are a moniker provider we can't use 
// the bind context to get the ROT 
hr « GetRunningObjectTable(t), &prot); 

ATLTRACE (_T( "CRunning: : ParseDisplayName () GetRunningObj ectTable %x\n") ,hr) 
if (SUCCEEDED (hr) ) ' 



( 



hr » prot->EnumRunning (ipenura) ; 

ATLTRACE (_T ( "CRunning :: ParseDisplayName () EnumRunning %x\n"),hr), 

if (SUCCEEDED (hr) ) 

( 



IMoniker 
IMoniker 
I Unknown 
BOOL 



ppmkTest 
ppmkResult 
pUnk 
bFound 



- NULL; 

- NULL; 
« NULL; 

- FALSE; 



ame() created pointer monikerW ) ) 



while ( (penum->Next (1, ippmkTest, NULL) — S_OK) &&(! bFound) ) 

hr - ppmk- >Is Equal (ppmkTest) ; 
if(hr — S OK) // not SUCCEEDED! ! 
{ 

TRACE (_T( "CRunning: : ParseDisplayName () we found i 
bFound - TRUE; 

hr ** prot.->GetObject (ppmkTest, &pUnk) ; 
if(hr — S OK) // not SUCCEEDED!! 
( 

TRACE (_T( "CRunning: : ParseDisplayName ( ) we 
hr - CreatePointerMoniker (pUnk, ipprakResul 

if (SUCCEEDED (hr) ) 
{ 

TRACE ( JT ( "CRunning : : ParseDisplayN 



- NULL; 
pltemMoniker 
ucEaten; 



NULL; 
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I ParseDisplayName 

IMoniker 

ULONG 



pParse 




CRunning. cpp 



O 



s correct 
s to with it 



' (IID_IParseDisplayName, (void **)fcpParse); 
eDisplayName (pbc, IpszSrc, iucEaten, ipltemttoniker) ; 
+- ucEaten; 

Result->ComposeWith(pIteinMoniker, FALSE , ppmkOu t ) ; 
DED(hr)) 

RACE (_T{ "CRunning: : ParseDisplayName { ) It worked! ! • \n") ) , 
/ we can release the constituant elements 
/ of the composite 
pmkResult->Release ( ) ; 

succeed or fail we can release the 
oniker 

ker->Release () ; 



// we'll give him- the part that i 

// and he can do whatever he want 

•ppmkOut - ppmkResult; 

// is there any string to parse? 

ifClpszSrc !- L'XO') 

< 

hr « pUnk->Query!nterface 

if (SUCCEEDED (hr) ) 
( 

hr -i pParse->Pars 

if (SUCCEEDED (hr) ) 
i 

fpchEaten 
hr - ppmk 
if (SUCCEE 
< 

T 

/ 
/ 
P 

) 

// if we 
// item m 
pltemMoni 



} 

pParse->Release ( ) 



i H 5 



□ 



) 

ppmkTest->Release ( ) ; 



) 

prot->Release ( ) 



if ( IbFound) 
< 

hr - E_FAIL; 

) 

penum->Re lease ( ) ; 



) 

ppmk->Release ( ) ; 



J 

return hr; 
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Query IParseDisplayName 
Step S402 



Create Pointer Moniker 
Step S404 




Create Item Moniker 
Step S408 



Call ParseDisplayName 
Using "variables" Item Name 
Step S406 




Call ParseDisplayName 
Using "ImbO" Name 
Step S4 10 



Call Bind Operation With 
Leftmost Moniker 
Step S412 



